home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / redskins.zip / HAIL2RED.BAS < prev    next >
BASIC Source File  |  1992-01-19  |  2KB  |  43 lines
  1. 100 REM REDSKINS.BAS
  2. 110 REM HAIL TO THE REDSKINS - TRANSCRIBED BY RALPH R. RAYNER - MPCC
  3. 111 REM VISUAL ARRANGEMENT BY - DFA - VIP BBS 703-328-6915
  4. 120 A$ = "T180O3L2GL4F#GL8AO4L2C.P8O3L2GL4EGL1D"
  5. 130 B$ = "L2GL4F#GL8AO4L2C.P8L4E.L8CL4D.L8CL2C.P4"
  6. 140 C$ = "O3L8AGEDEEEDEEL2E.O3L8AGEDEEEDEEL2EP8L8D"
  7. 150 D$ = "L4G.L8DL4A.L8DL4BO4CDO3L8BGL2EAL1G"
  8. 160 KEY OFF: CLS : COLOR 30, 4: LOCATE 3, 27: PRINT "* HAIL TO THE REDSKINS *"
  9. 170 COLOR 14, 0: LOCATE 7, 29: PRINT "Hail to the Redskins!"
  10. 180 LOCATE 8, 30: PRINT "Hail Victory"
  11. 190 LOCATE 9, 29: PRINT "Braves on the Warpath"
  12. 200 LOCATE 10, 30: PRINT "Fight for Old D.C.!"
  13. 210 PLAY (A$) + (B$)
  14.  
  15.  
  16. 220 CLS
  17. 230 COLOR 14, 4: LOCATE 7, 29: PRINT " Hail to the Redskins! "
  18. 240 LOCATE 8, 29: PRINT "  Hail Victory         "
  19. 250 LOCATE 9, 29: PRINT " Braves on the Warpath "
  20. 260 LOCATE 10, 29: PRINT "  Fight for Old D.C.!  "
  21. 270 PLAY (A$) + (B$)
  22. 280 COLOR 4, 0: LOCATE 12, 29: PRINT "Run or Pass or score--"
  23. 290 LOCATE 13, 30: PRINT "we want a lot more!"
  24. 300 LOCATE 14, 29: PRINT "Beat'em Swamp'em Touchdown"
  25. 310 LOCATE 15, 30: PRINT "let the points soar! "
  26. 320 PLAY (C$)
  27. 330 LOCATE 17, 29: PRINT "Fight on, Fight on-- "
  28. 340 LOCATE 18, 30: PRINT "Till you have won,   "
  29. 350 LOCATE 19, 31: PRINT "Sons of Wash-ing-ton "
  30. 360 LOCATE 21, 32: PRINT "RAH, RAH, RAH!!! "
  31. 370 PLAY (D$)
  32. 380 CLS : COLOR 20, 0: LOCATE 7, 27: PRINT " *  HAIL TO THE REDSKINS *"
  33. 390 COLOR 30, 4: LOCATE 13, 29: PRINT " HAIL TO THE REDSKINS! "
  34. 400 LOCATE 14, 29: PRINT "  HAIL VICTORY         "
  35. 410 PLAY (A$)
  36. 420 LOCATE 15, 29: PRINT " BRAVES ON THE WARPATH "
  37. 430 LOCATE 16, 29: PRINT "  FIGHT FOR OLD D.C.!  "
  38. 440 PLAY (B$)
  39. 450 Q$ = INPUT$(1)
  40. 460 CLS
  41. 470 SYSTEM
  42.  
  43.